00100		DIMENSION INA(1500),IOA(1200),IBA(1000),NE(64)
00200	22	N=0
00300		NB=0
00400		LL=1
00500		J=0
00600	1	J=J+1
00700		
00800	11	TYPE 2
00900	2	FORMAT(' TYPE IN LINE:'/)
01000		ACCEPT 3,(INA(K),K=LL,LL+14)
01100	3	FORMAT(15A5)
01200		IF(INA(LL).EQ.'     ')GO TO 5
01300		JB=15
01400	27	CALL MOLD(JB,INA(LL),N,IOA(1),NB,IBA(1),NE(J))
01500		IF(JB.NE.15)GO TO 5
01600		LL=LL+15
01700		GO TO 1
01800	35	TYPE 6,(IOA(I),I=1,N)
01900	6	FORMAT(1X15A5)
02000	5	TYPE 7,LL,N,NB,J
02100	7	FORMAT('    INW   OWC   IBC    EX'/1X4I6/)
02200	 	TYPE 23
02300	23	FORMAT(' TYPE <CR>'/' I FOR IN'/' O FOR OUT'/' T TO TYPE:'$)
02400		ACCEPT 21,NAM
02500		IF(NAM.EQ.'I    ')GO TO 24
02600		IF(NAM.EQ.'T    ')GO TO 35
02700		IF(NAM.NE.'O    ')GO TO 11
02800		TYPE 20
02900	20	FORMAT(' TYPE:<CR>  OR NAME FOR FILE:'$)
03000		ACCEPT 21,NAM
03100	21	FORMAT(A5)
03200		IF(NAM.EQ.'     ')GO TO 11
03300		CALL OFILE(1,NAM)
03400		WRITE(1)LL,(INA(K),K=1,LL)
03500		END FILE 1
03600		GO TO 22
03700	24	TYPE 20
03800		ACCEPT 21,NAM
03900		IF(NAM.EQ.'     '.OR..NOT.LOOKD(NAM))GO TO 11
04000		CALL IFILE(1,NAM)
04100		READ(1)JB,(INA(K),K=1,JB)
04200		TYPE 33,JB
04300	33	FORMAT('     NW'/1XI6/)
04400		LL=1
04500		GO TO 27
04600		END